home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / jul90.zip / TIP554.LSP < prev    next >
Text File  |  1990-07-09  |  495b  |  24 lines
  1. ;TIP554.LSP   Defining Function Keys   (c)1990, James Tseng
  2. (defun C:FKEYS (/ FF ST)
  3.   (setq FF
  4.       (getint "Function Keys (3-10): "))
  5.   (if (and (> FF 2)(< FF 11))
  6.     (progn
  7.       (setq
  8.         FF (itoa(+ FF 58))
  9.         ST (getstring T "Redefine as: ")
  10.         ST (strcat "\e[0;" FF ";'" ST "';13p")
  11.       )
  12.       (textscr)
  13.       (prompt ST)
  14.       (graphscr)
  15.    )
  16.   )
  17. ) end of FKEYS
  18. (textscr)
  19. (prompt "\e[0;60;'fkeys';13p")
  20. (graphscr)
  21. (prompt "Hotkey: F2")
  22. (princ)
  23. 
  24.